home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / v7n11.arc / LN711.ARC / EGASAV.BAS < prev    next >
BASIC Source File  |  1988-05-02  |  605b  |  17 lines
  1.     '----- BSave an EGA graphics screen
  2.     DEF SEG = &HA000
  3.     OUT &H3CE,4 : OUT &H3CF,0 : BSAVE "Blue", 0, 28000
  4.     OUT &H3CE,4 : OUT &H3CF,1 : BSAVE "Green", 0, 28000
  5.     OUT &H3CE,4 : OUT &H3CF,2 : BSAVE "Red", 0, 28000
  6.     OUT &H3CE,4 : OUT &H3CF,3 : BSAVE "Bright", 0, 28000
  7.     OUT &H3CE,4 : OUT &H3CF,0
  8.  
  9.  
  10.     '----- BLoad an EGA graphics screen
  11.     DEF SEG = &HA000
  12.     OUT &H3C4,2 : OUT &H3C5,1 : BLOAD "Blue"
  13.     OUT &H3C4,2 : OUT &H3C5,2 : BLOAD "Green"
  14.     OUT &H3C4,2 : OUT &H3C5,4 : BLOAD "Red"
  15.     OUT &H3C4,2 : OUT &H3C5,8 : BLOAD "Bright"
  16.     OUT &H3C4,2 : OUT &H3C5,15
  17.